#! /usr/bin/env perl
# Copyright (c) 2000-2002 SuSE Linux AG, Nuernberg, Germany.
# All rights reserved.
#
# Author: Vladimir Linek <vinil@suse.cz>

# this script prints destination of the symbolic link

# Usage:      linkto symlink

print readlink($ARGV[0]) . "\n";
